home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b5.d64
/
print'dirlabel.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
606b
|
20 lines
9000 //
9010 PROC PRINT'DIR'LABEL(REF D$(),START,NUM'COLS,NUM'ROWS,REF FILE'COUNT)
9020 START:-1
9030 D$(0):=">>"+DISK'ID$+" "+DATE$+" "+DISK'ID$+"<<"
9040 FOR ROW:=0 TO NUM'ROWS-1 DO
9050 FOR COL:=0 TO NUM'COLS-1 DO
9060 THIS'ONE:=START+(COL*NUM'ROWS)+ROW
9070 IF THIS'ONE<=FILE'COUNT THEN PRINT TAB(1+(17*COL)),D$(THIS'ONE),
9080 ENDFOR COL
9090 PRINT
9100 ENDFOR ROW
9110 PRINT
9120 START:+(NUM'COLS*NUM'ROWS)
9130 IF FILE'COUNT>=START THEN
9140 D$(START-1):=DISK'ID$+" CONTINUED "+DISK'ID$
9150 PRINT'DIR'LABEL(D$,START,NUM'COLS,NUM'ROWS,FILE'COUNT)
9160 ENDIF
9170 ENDPROC PRINT'DIR'LABEL
9180 //